/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_1 / issue_08 / fitton / sourcecode / header01

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 75 30 1d f4 20 3e 20 | 26 2e 53 6f 75 72 63 65 |.u0.. > |&.Source|
|00000010| 43 6f 64 65 2e 48 65 61 | 64 65 72 30 31 0d 75 3a |Code.Hea|der01.u:|
|00000020| 27 f4 20 41 75 74 68 6f | 72 20 20 20 20 20 20 20 |'. Autho|r       |
|00000030| 20 20 20 20 20 20 20 20 | 3a 20 47 20 4c 20 46 69 |        |: G L Fi|
|00000040| 74 74 6f 6e 0d 75 44 2d | f4 20 43 6f 70 79 72 69 |tton.uD-|. Copyri|
|00000050| 67 68 74 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |ght     |       :|
|00000060| 20 41 42 41 42 43 55 53 | 20 54 52 41 49 4e 49 4e | ABABCUS| TRAININ|
|00000070| 47 0d 75 4e 2c f4 20 56 | 65 72 73 69 6f 6e 20 31 |G.uN,. V|ersion 1|
|00000080| 2e 30 30 20 20 20 20 20 | 20 20 20 20 3a 20 32 38 |.00     |    : 28|
|00000090| 74 68 20 4d 61 72 63 68 | 20 31 39 38 38 0d 75 58 |th March| 1988.uX|
|000000a0| 05 3a 0d 75 62 05 3a 0d | 75 6c 36 f4 20 54 68 65 |.:.ub.:.|ul6. The|
|000000b0| 20 73 6f 75 72 63 65 20 | 63 6f 64 65 20 66 6f 72 | source |code for|
|000000c0| 20 61 20 72 65 6c 6f 63 | 61 74 61 62 6c 65 20 6d | a reloc|atable m|
|000000d0| 6f 64 75 6c 65 20 68 65 | 61 64 65 72 2e 0d 75 76 |odule he|ader..uv|
|000000e0| 2a f4 20 54 68 65 20 74 | 69 74 6c 65 20 6f 66 20 |*. The t|itle of |
|000000f0| 74 68 65 20 6d 6f 64 75 | 6c 65 20 69 73 20 48 65 |the modu|le is He|
|00000100| 61 64 65 72 52 4d 2e 0d | 75 80 28 f4 20 54 68 65 |aderRM..|u.(. The|
|00000110| 20 73 69 6e 67 6c 65 20 | 6b 65 79 77 6f 72 64 20 | single |keyword |
|00000120| 69 73 20 2a 54 68 65 4b | 65 79 77 6f 72 64 2e 0d |is *TheK|eyword..|
|00000130| 75 8a 05 3a 0d 75 94 10 | de 20 63 6f 64 65 25 20 |u..:.u..|. code% |
|00000140| 26 32 30 30 0d 75 9e 20 | 65 6e 64 6f 66 63 6f 64 |&200.u. |endofcod|
|00000150| 65 25 3d a4 5f 48 65 61 | 64 65 72 30 31 28 63 6f |e%=._Hea|der01(co|
|00000160| 64 65 25 29 0d 75 a8 3f | ff 28 22 53 41 56 45 20 |de%).u.?|.("SAVE |
|00000170| 26 2e 4d 6f 64 75 6c 65 | 73 2e 48 65 61 64 65 72 |&.Module|s.Header|
|00000180| 4d 6f 64 20 22 2b c3 7e | 28 63 6f 64 65 25 29 2b |Mod "+.~|(code%)+|
|00000190| 22 20 22 2b c3 7e 28 65 | 6e 64 6f 66 63 6f 64 65 |" "+.~(e|ndofcode|
|000001a0| 25 29 29 0d 75 b2 28 2a | 53 45 54 54 59 50 45 20 |%)).u.(*|SETTYPE |
|000001b0| 20 20 20 26 2e 4d 6f 64 | 75 6c 65 73 2e 48 65 61 |   &.Mod|ules.Hea|
|000001c0| 64 65 72 4d 6f 64 20 26 | 46 46 41 0d 75 bc 23 2a |derMod &|FFA.u.#*|
|000001d0| 53 54 41 4d 50 20 20 20 | 20 20 20 26 2e 4d 6f 64 |STAMP   |   &.Mod|
|000001e0| 75 6c 65 73 2e 48 65 61 | 64 65 72 4d 6f 64 0d 75 |ules.Hea|derMod.u|
|000001f0| c6 23 2a 52 4d 4c 4f 41 | 44 20 20 20 20 20 26 2e |.#*RMLOA|D     &.|
|00000200| 4d 6f 64 75 6c 65 73 2e | 48 65 61 64 65 72 4d 6f |Modules.|HeaderMo|
|00000210| 64 0d 75 d0 0f 2a 54 68 | 65 4b 65 79 77 6f 72 64 |d.u..*Th|eKeyword|
|00000220| 0d 75 da 05 e0 0d 75 e4 | 05 3a 0d 75 ee 05 3a 0d |.u....u.|.:.u..:.|
|00000230| 75 f8 18 dd 20 a4 5f 48 | 65 61 64 65 72 30 31 28 |u... ._H|eader01(|
|00000240| 73 74 61 72 74 25 29 0d | 76 02 05 3a 0d 76 0c 0e |start%).|v..:.v..|
|00000250| ea 20 73 70 2c 70 61 73 | 73 25 0d 76 16 2a ea 20 |. sp,pas|s%.v.*. |
|00000260| 6d 6f 64 75 6c 65 68 65 | 6c 70 2c 6b 65 79 77 6f |modulehe|lp,keywo|
|00000270| 72 64 73 2c 6d 6f 64 75 | 6c 65 74 69 74 6c 65 2c |rds,modu|letitle,|
|00000280| 63 6f 64 65 0d 76 20 21 | ea 20 6d 69 6e 70 61 72 |code.v !|. minpar|
|00000290| 61 6d 65 74 65 72 73 2c | 6d 61 78 70 61 72 61 6d |ameters,|maxparam|
|000002a0| 65 74 65 72 73 0d 76 2a | 1b ea 20 62 61 64 73 79 |eters.v*|.. badsy|
|000002b0| 6e 74 61 78 2c 6b 65 79 | 77 6f 72 64 68 65 6c 70 |ntax,key|wordhelp|
|000002c0| 0d 76 34 05 3a 0d 76 3e | 05 3a 0d 76 48 07 ea 20 |.v4.:.v>|.:.vH.. |
|000002d0| 85 0d 76 52 2f ee 20 85 | 20 ff 28 22 46 58 20 33 |..vR/. .| .("FX 3|
|000002e0| 2c 30 22 29 3a ef 20 32 | 36 2c 31 32 3a f6 3a f1 |,0"):. 2|6,12:.:.|
|000002f0| 20 22 20 61 74 20 6c 69 | 6e 65 20 22 3b 9e 3a fa | " at li|ne ";.:.|
|00000300| 0d 76 5c 05 3a 0d 76 66 | 05 3a 0d 76 70 1a f4 20 |.v\.:.vf|.:.vp.. |
|00000310| 55 73 65 20 74 68 65 20 | 42 41 53 49 43 20 73 74 |Use the |BASIC st|
|00000320| 61 63 6b 2e 0d 76 7a 26 | 73 70 20 20 20 20 20 20 |ack..vz&|sp      |
|00000330| 20 20 20 3d 20 31 33 20 | 20 3a f4 20 53 74 61 63 |   = 13 | :. Stac|
|00000340| 6b 20 70 6f 69 6e 74 65 | 72 2e 0d 76 84 05 3a 0d |k pointe|r..v..:.|
|00000350| 76 8e 05 3a 0d 76 98 37 | f4 20 53 65 74 20 74 68 |v..:.v.7|. Set th|
|00000360| 65 20 6d 69 6e 69 6d 75 | 6d 20 61 6e 64 20 6d 61 |e minimu|m and ma|
|00000370| 78 69 6d 75 6d 20 6e 75 | 6d 62 65 72 20 6f 66 20 |ximum nu|mber of |
|00000380| 70 61 72 61 6d 65 74 65 | 72 73 2e 0d 76 a2 39 6d |paramete|rs..v.9m|
|00000390| 69 6e 70 61 72 61 6d 65 | 74 65 72 73 20 3d 20 30 |inparame|ters = 0|
|000003a0| 20 3a f4 20 54 68 65 20 | 6d 69 6e 69 6d 75 6d 20 | :. The |minimum |
|000003b0| 6e 75 6d 62 65 72 20 6f | 66 20 70 61 72 61 6d 65 |number o|f parame|
|000003c0| 74 65 72 73 0d 76 ac 39 | 6d 61 78 70 61 72 61 6d |ters.v.9|maxparam|
|000003d0| 65 74 65 72 73 20 3d 20 | 30 20 3a f4 20 54 68 65 |eters = |0 :. The|
|000003e0| 20 6d 61 78 69 6d 75 6d | 20 6e 75 6d 62 65 72 20 | maximum| number |
|000003f0| 6f 66 20 70 61 72 61 6d | 65 74 65 72 73 0d 76 b6 |of param|eters.v.|
|00000400| 05 3a 0d 76 c0 05 3a 0d | 76 ca 17 e3 20 70 61 73 |.:.v..:.|v... pas|
|00000410| 73 25 20 3d 20 30 20 b8 | 20 33 20 88 20 33 0d 76 |s% = 0 .| 3 . 3.v|
|00000420| d4 0d 50 25 3d 73 74 61 | 72 74 25 0d 76 de 0e 5b |..P%=sta|rt%.v..[|
|00000430| 4f 50 54 20 70 61 73 73 | 25 0d 76 e8 0a 45 51 55 |OPT pass|%.v..EQU|
|00000440| 44 20 30 0d 76 f2 0a 45 | 51 55 44 20 30 0d 76 fc |D 0.v..E|QUD 0.v.|
|00000450| 0a 45 51 55 44 20 30 0d | 77 06 0a 45 51 55 44 20 |.EQUD 0.|w..EQUD |
|00000460| 30 0d 77 10 1d 45 51 55 | 44 20 28 6d 6f 64 75 6c |0.w..EQU|D (modul|
|00000470| 65 74 69 74 6c 65 2d 73 | 74 61 72 74 25 29 0d 77 |etitle-s|tart%).w|
|00000480| 1a 1c 45 51 55 44 20 28 | 6d 6f 64 75 6c 65 68 65 |..EQUD (|modulehe|
|00000490| 6c 70 2d 73 74 61 72 74 | 25 29 0d 77 24 1a 45 51 |lp-start|%).w$.EQ|
|000004a0| 55 44 20 28 6b 65 79 77 | 6f 72 64 73 2d 73 74 61 |UD (keyw|ords-sta|
|000004b0| 72 74 25 29 0d 77 2e 0a | 45 51 55 44 20 30 0d 77 |rt%).w..|EQUD 0.w|
|000004c0| 38 0a 45 51 55 44 20 30 | 0d 77 42 0a 45 51 55 44 |8.EQUD 0|.wB.EQUD|
|000004d0| 20 30 0d 77 4c 0a 45 51 | 55 44 20 30 0d 77 56 10 | 0.wL.EQ|UD 0.wV.|
|000004e0| 2e 6d 6f 64 75 6c 65 74 | 69 74 6c 65 0d 77 60 13 |.modulet|itle.w`.|
|000004f0| 45 51 55 53 20 22 48 65 | 61 64 65 72 52 4d 22 0d |EQUS "He|aderRM".|
|00000500| 77 6a 0a 45 51 55 44 20 | 30 0d 77 74 09 41 4c 49 |wj.EQUD |0.wt.ALI|
|00000510| 47 4e 0d 77 7e 0f 2e 6d | 6f 64 75 6c 65 68 65 6c |GN.w~..m|odulehel|
|00000520| 70 0d 77 88 41 45 51 55 | 53 20 22 52 4d 20 48 65 |p.w.AEQU|S "RM He|
|00000530| 61 64 65 72 22 2b bd 28 | 26 30 39 29 2b 22 31 2e |ader"+.(|&09)+"1.|
|00000540| 30 30 20 28 32 38 20 4d | 61 72 20 31 39 38 38 29 |00 (28 M|ar 1988)|
|00000550| 20 20 41 42 41 43 55 53 | 20 54 52 41 49 4e 49 4e |  ABACUS| TRAININ|
|00000560| 47 22 0d 77 92 0a 45 51 | 55 42 20 30 0d 77 9c 09 |G".w..EQ|UB 0.w..|
|00000570| 41 4c 49 47 4e 0d 77 a6 | 0d 2e 6b 65 79 77 6f 72 |ALIGN.w.|..keywor|
|00000580| 64 73 0d 77 b0 15 45 51 | 55 53 20 22 54 68 65 4b |ds.w..EQ|US "TheK|
|00000590| 65 79 77 6f 72 64 22 0d | 77 ba 0a 45 51 55 42 20 |eyword".|w..EQUB |
|000005a0| 30 0d 77 c4 09 41 4c 49 | 47 4e 0d 77 ce 16 45 51 |0.w..ALI|GN.w..EQ|
|000005b0| 55 44 20 28 63 6f 64 65 | 2d 73 74 61 72 74 25 29 |UD (code|-start%)|
|000005c0| 0d 77 d8 16 45 51 55 57 | 20 6d 69 6e 70 61 72 61 |.w..EQUW| minpara|
|000005d0| 6d 65 74 65 72 73 0d 77 | e2 16 45 51 55 57 20 6d |meters.w|..EQUW m|
|000005e0| 61 78 70 61 72 61 6d 65 | 74 65 72 73 0d 77 ec 1b |axparame|ters.w..|
|000005f0| 45 51 55 44 20 28 62 61 | 64 73 79 6e 74 61 78 2d |EQUD (ba|dsyntax-|
|00000600| 73 74 61 72 74 25 29 0d | 77 f6 1d 45 51 55 44 20 |start%).|w..EQUD |
|00000610| 28 6b 65 79 77 6f 72 64 | 68 65 6c 70 2d 73 74 61 |(keyword|help-sta|
|00000620| 72 74 25 29 0d 78 00 0a | 45 51 55 44 20 30 0d 78 |rt%).x..|EQUD 0.x|
|00000630| 0a 0e 2e 62 61 64 73 79 | 6e 74 61 78 0d 78 14 48 |...badsy|ntax.x.H|
|00000640| 45 51 55 53 20 22 53 79 | 6e 74 61 78 3a 22 2b bd |EQUS "Sy|ntax:"+.|
|00000650| 28 26 30 39 29 2b 22 2a | 54 68 65 4b 65 79 77 6f |(&09)+"*|TheKeywo|
|00000660| 72 64 20 28 77 69 74 68 | 6f 75 74 20 61 6e 79 20 |rd (with|out any |
|00000670| 70 61 72 61 6d 65 74 65 | 72 73 29 2e 22 2b bd 28 |paramete|rs)."+.(|
|00000680| 26 30 44 29 0d 78 1e 0a | 45 51 55 42 20 30 0d 78 |&0D).x..|EQUB 0.x|
|00000690| 28 09 41 4c 49 47 4e 0d | 78 32 10 2e 6b 65 79 77 |(.ALIGN.|x2..keyw|
|000006a0| 6f 72 64 68 65 6c 70 0d | 78 3c 3b 45 51 55 53 20 |ordhelp.|x<;EQUS |
|000006b0| 22 2a 54 68 65 4b 65 79 | 77 6f 72 64 22 2b bd 28 |"*TheKey|word"+.(|
|000006c0| 26 30 39 29 2b 22 74 61 | 6b 65 73 20 6e 6f 20 70 |&09)+"ta|kes no p|
|000006d0| 61 72 61 6d 65 74 65 72 | 73 2e 22 2b bd 28 26 30 |arameter|s."+.(&0|
|000006e0| 44 29 0d 78 46 0a 45 51 | 55 42 20 30 0d 78 50 09 |D).xF.EQ|UB 0.xP.|
|000006f0| 41 4c 49 47 4e 0d 78 5a | 09 2e 63 6f 64 65 0d 78 |ALIGN.xZ|..code.x|
|00000700| 64 1c 53 54 4d 46 44 20 | 28 73 70 29 21 2c 7b 52 |d.STMFD |(sp)!,{R|
|00000710| 30 2d 52 31 32 2c 52 31 | 34 7d 0d 78 6e 0f 4d 4f |0-R12,R1|4}.xn.MO|
|00000720| 56 20 52 30 2c 23 26 30 | 44 0d 78 78 14 53 57 49 |V R0,#&0|D.xx.SWI|
|00000730| 20 22 58 4f 53 5f 57 72 | 69 74 65 43 22 0d 78 82 | "XOS_Wr|iteC".x.|
|00000740| 0f 4d 4f 56 20 52 30 2c | 23 26 30 41 0d 78 8c 14 |.MOV R0,|#&0A.x..|
|00000750| 53 57 49 20 22 58 4f 53 | 5f 57 72 69 74 65 43 22 |SWI "XOS|_WriteC"|
|00000760| 0d 78 96 12 4d 4f 56 20 | 52 30 2c 23 97 28 22 48 |.x..MOV |R0,#.("H|
|00000770| 22 29 0d 78 a0 14 53 57 | 49 20 22 58 4f 53 5f 57 |").x..SW|I "XOS_W|
|00000780| 72 69 74 65 43 22 0d 78 | aa 12 4d 4f 56 20 52 30 |riteC".x|..MOV R0|
|00000790| 2c 23 97 28 22 65 22 29 | 0d 78 b4 14 53 57 49 20 |,#.("e")|.x..SWI |
|000007a0| 22 58 4f 53 5f 57 72 69 | 74 65 43 22 0d 78 be 12 |"XOS_Wri|teC".x..|
|000007b0| 4d 4f 56 20 52 30 2c 23 | 97 28 22 6c 22 29 0d 78 |MOV R0,#|.("l").x|
|000007c0| c8 14 53 57 49 20 22 58 | 4f 53 5f 57 72 69 74 65 |..SWI "X|OS_Write|
|000007d0| 43 22 0d 78 d2 14 53 57 | 49 20 22 58 4f 53 5f 57 |C".x..SW|I "XOS_W|
|000007e0| 72 69 74 65 43 22 0d 78 | dc 12 4d 4f 56 20 52 30 |riteC".x|..MOV R0|
|000007f0| 2c 23 97 28 22 6f 22 29 | 0d 78 e6 14 53 57 49 20 |,#.("o")|.x..SWI |
|00000800| 22 58 4f 53 5f 57 72 69 | 74 65 43 22 0d 78 f0 12 |"XOS_Wri|teC".x..|
|00000810| 4d 4f 56 20 52 30 2c 23 | 97 28 22 20 22 29 0d 78 |MOV R0,#|.(" ").x|
|00000820| fa 14 53 57 49 20 22 58 | 4f 53 5f 57 72 69 74 65 |..SWI "X|OS_Write|
|00000830| 43 22 0d 79 04 12 4d 4f | 56 20 52 30 2c 23 97 28 |C".y..MO|V R0,#.(|
|00000840| 22 47 22 29 0d 79 0e 14 | 53 57 49 20 22 58 4f 53 |"G").y..|SWI "XOS|
|00000850| 5f 57 72 69 74 65 43 22 | 0d 79 18 12 4d 4f 56 20 |_WriteC"|.y..MOV |
|00000860| 52 30 2c 23 97 28 22 65 | 22 29 0d 79 22 14 53 57 |R0,#.("e|").y".SW|
|00000870| 49 20 22 58 4f 53 5f 57 | 72 69 74 65 43 22 0d 79 |I "XOS_W|riteC".y|
|00000880| 2c 12 4d 4f 56 20 52 30 | 2c 23 97 28 22 72 22 29 |,.MOV R0|,#.("r")|
|00000890| 0d 79 36 14 53 57 49 20 | 22 58 4f 53 5f 57 72 69 |.y6.SWI |"XOS_Wri|
|000008a0| 74 65 43 22 0d 79 40 12 | 4d 4f 56 20 52 30 2c 23 |teC".y@.|MOV R0,#|
|000008b0| 97 28 22 61 22 29 0d 79 | 4a 14 53 57 49 20 22 58 |.("a").y|J.SWI "X|
|000008c0| 4f 53 5f 57 72 69 74 65 | 43 22 0d 79 54 12 4d 4f |OS_Write|C".yT.MO|
|000008d0| 56 20 52 30 2c 23 97 28 | 22 6c 22 29 0d 79 5e 14 |V R0,#.(|"l").y^.|
|000008e0| 53 57 49 20 22 58 4f 53 | 5f 57 72 69 74 65 43 22 |SWI "XOS|_WriteC"|
|000008f0| 0d 79 68 12 4d 4f 56 20 | 52 30 2c 23 97 28 22 64 |.yh.MOV |R0,#.("d|
|00000900| 22 29 0d 79 72 14 53 57 | 49 20 22 58 4f 53 5f 57 |").yr.SW|I "XOS_W|
|00000910| 72 69 74 65 43 22 0d 79 | 7c 0f 4d 4f 56 20 52 30 |riteC".y||.MOV R0|
|00000920| 2c 23 26 30 44 0d 79 86 | 14 53 57 49 20 22 58 4f |,#&0D.y.|.SWI "XO|
|00000930| 53 5f 57 72 69 74 65 43 | 22 0d 79 90 0f 4d 4f 56 |S_WriteC|".y..MOV|
|00000940| 20 52 30 2c 23 26 30 41 | 0d 79 9a 14 53 57 49 20 | R0,#&0A|.y..SWI |
|00000950| 22 58 4f 53 5f 57 72 69 | 74 65 43 22 0d 79 a4 0f |"XOS_Wri|teC".y..|
|00000960| 4d 4f 56 20 52 30 2c 23 | 26 30 41 0d 79 ae 14 53 |MOV R0,#|&0A.y..S|
|00000970| 57 49 20 22 58 4f 53 5f | 57 72 69 74 65 43 22 0d |WI "XOS_|WriteC".|
|00000980| 79 b8 1b 4c 44 4d 46 44 | 20 28 73 70 29 21 2c 7b |y..LDMFD| (sp)!,{|
|00000990| 52 30 2d 52 31 32 2c 50 | 43 7d 0d 79 c2 05 5d 0d |R0-R12,P|C}.y..].|
|000009a0| 79 cc 0b ed 20 70 61 73 | 73 25 0d 79 d6 07 3d 50 |y... pas|s%.y..=P|
|000009b0| 25 0d ff                |                         |%..     |        |
+--------+-------------------------+-------------------------+--------+--------+